home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games 1996 July / Amiga Games 1996 #7.iso / archive / userbox / publicdomain / showconfig.lha / ShowConfigEnh-Install / ShowConfigEnh-Install < prev   
Text File  |  1996-04-14  |  3KB  |  147 lines
  1. ; $VER: ShowConfigEnh 1.0 (9.4.96)
  2. ;
  3. ; Install-Script & ShowConfigEnh Copyright ©1996 Thomas Kessler
  4. ; All rights reserved.
  5. ; Feel free to contact me via email at kessler@fim.uni-erlangen.de
  6. ;
  7. ; boards.library 1.0 ©1996 Torsten Bach (bach@deadline.snafu.de)
  8. ; expname.library 1.6 ©1996 Richard Körber (rkoerber@tfh.dssd.sub.org)
  9. ; All rights reserved.
  10.  
  11. (set #already (cat
  12.     "\nThis version of ShowConfig is\n"
  13.     "already enhanced (= patched).\n"
  14.     "\nThank you for using ShowConfigEnh."))
  15.  
  16. (set #notsup (cat
  17.     "\nThis version of ShowConfig is\n"
  18.     "not (yet) supported.\n\n"
  19.     "Supported versions are:\n40.2 (OS3.1), 39.1 (OS3.0)\n"
  20.     "\nThank you for using ShowConfigEnh."))
  21.  
  22. (set old-level @user-level)
  23.  
  24. (user 2)
  25. (complete 0)
  26.  
  27. (message "\nShowConfigEnh 1.0 Installation\n\n"
  28.     "This patch enhances the workbench-tool ShowConfig.\n"
  29.     "The patched ShowConfig will be able to use system\n"
  30.     "shared libraries to decode the manufacturer- and\n"
  31.     "product ID of expansion boards.\n\n"
  32.     "ShowConfig ©1990-1996 Escom AG\n"
  33.     "ShowConfigEnh 1.0 ©1996 Thomas Kessler\n"
  34.     "boards.library 1.0 ©1996 Torsten Bach\n"
  35.     "expname.library 1.6 ©1996 Richard Körber\n"
  36.     "All rights reserved.")
  37.  
  38. (complete 1)
  39.  
  40. (set #file
  41.     (askfile
  42.         (prompt "Please locate your workbench-tool ShowConfig.")
  43.         (help @askfile-help)
  44.         (default "SYS:Tools/ShowConfig")))
  45. (complete 5)
  46.  
  47. (set #checksum (getsum #file))
  48. (complete 10)
  49.  
  50. (set #version 0)
  51.  
  52. (if (= #checksum 1934686971)
  53.     (
  54.         ; orig 40.2 (24.08.93)
  55.         (set #version 1)))
  56.  
  57. (if (= #checksum 1117391017)
  58.     (
  59.         ; patched 40.2b (09.04.96)
  60.         (abort #already)))
  61.  
  62. (if (= #checksum 2015712407)
  63.     (
  64.         ; patched 40.2e (09.04.96)
  65.         (abort #already)))
  66.  
  67. (if (= #checksum 116849060)
  68.     (
  69.         ; orig 39.1 (24.08.93)
  70.         (set #version 2)))
  71.  
  72. (if (= #checksum -1242884495)
  73.     (
  74.         ; patched 39.1b (09.04.96)
  75.         (abort #already)))
  76.  
  77. (if (= #checksum -359176608)
  78.     (
  79.         ; patched 39.1e (09.04.96)
  80.         (abort #already)))
  81.  
  82. (complete 30)
  83.  
  84. (if (= #version 0)
  85.         (abort #notsup))
  86.  
  87. (set #library
  88.     (askchoice
  89.         (prompt "\nWhich library should ShowConfig use?\n\n"
  90.             "These libraries are available on aminet\n"
  91.             "and NOT included in this package!\n\n")
  92.         (help @askchoice-help)
  93.         (choices "boards.library" "expname.library")))
  94.  
  95. (complete 50)
  96.  
  97. (if (= #version 1)
  98.     (
  99.         (set #command (cat "ShowConfigEnh-Data/patch402 "#file" "#file"Enh"))
  100.         (if (= #library 1)
  101.             (set #command (cat #command " EXP")))
  102.         
  103.     ))
  104.  
  105. (if (= #version 2)
  106.     (
  107.         (set #command (cat "ShowConfigEnh-Data/patch391 "#file" "#file"Enh"))
  108.         (if (= #library 1)
  109.             (set #command (cat #command " EXP")))
  110.     ))
  111.  
  112. (run
  113.     (prompt "Patch...")
  114.     (help "n/a")
  115.     #command)
  116.  
  117. (complete 80)
  118.  
  119. (copyfiles
  120.     (prompt "Copy...")
  121.     (help "n/a")
  122.     (source (cat #file".info"))
  123.     (dest (pathonly #file))
  124.     (newname (cat #file"Enh.info")))
  125.  
  126. (complete 90)
  127.  
  128. (tooltype
  129.     (prompt "Convert...")
  130.     (help "n/a")
  131.     (dest (cat #file"Enh"))
  132.     (noposition)
  133.     (safe))
  134.  
  135. (set @default-dest (pathonly #file))
  136.  
  137. (complete 100)
  138. (user old-level)
  139. (exit (cat "Note: You have to install\n\n"
  140.     (if (= #library 0) "boards.library")
  141.     (if (= #library 1) "expname.library")
  142.     "\n\nby yourself. The library is not\n"
  143.     "included in this package!\n"
  144.     "\nThank you for using ShowConfigEnh.")
  145. )
  146. (welcome "")
  147.